home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / PALETTE.LST < prev    next >
Encoding:
File List  |  1995-02-06  |  278 b   |  15 lines
  1. PROCEDURE palette
  2.   LOCAL xa%
  3.   IF DIM?(palette|())
  4.     FOR xa%=0 TO 31
  5.       SPOKE &HFFFF8240+xa%,palette|(xa%)
  6.     NEXT xa%
  7.     ERASE palette|()
  8.   ELSE
  9.     DIM palette|(31)
  10.     FOR xa%=0 TO 31
  11.       palette|(xa%)=PEEK(&HFFFF8240+xa%)
  12.     NEXT xa%
  13.   ENDIF
  14. RETURN
  15.